From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 13 Apr 2025 09:38:04 +0000 (+0300)
Subject: ; Fix a typo in proced.el
X-Git-Tag: archive/raspbian/1%30.2+1-2+rpi1^2~2^2~24^2~146
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/success/%22http:/www.example.com/cgi/success?a=commitdiff_plain;h=22b646efe3820fae4c7635e883f4ed9aad1c6cd4;p=emacs.git

; Fix a typo in proced.el

* lisp/proced.el (proced-filter): Fix a typo.  Reported by Armin
Darvish <armindarvish@gmail.com>.  (Bug#77713)

(cherry picked from commit 3a13fb2069fc861e20fca893aa64dd70dcef0de3)
---

diff --git a/lisp/proced.el b/lisp/proced.el
index a60f70c949e..429bc06e745 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -1185,7 +1185,7 @@ Return the filtered process list."
             ( ;; apply predicate to each list of attributes
              (eq (car filter) 'function)
              (dolist (process process-alist)
-               (if (funcall (car filter) (cdr process))
+               (if (funcall (cdr filter) (cdr process))
                    (push process new-alist))))
             (t ;; apply predicate to specified attribute
              (let* ((cdrfilter (cdr filter))